10 POKE53280,6:POKE53281,6:PRINT" SPACE ZUM BEENDEN"
20 FORR=704TO766:READS:POKER,S:NEXT
30 V=53248:POKE2040,11:POKEV+39,7:POKEV+21,1
40 FORX=10TO255
50 Y=199-(ABS(150*SIN(X/20)))
60 POKEV,X:POKEV+1,Y
70 NEXTX
80 GETA$:IFA$<>" "THEN40
90 DATA0,254,0,3,255,128,7,255,192,15,255,224,31,1,240,62,0,248,60,0
100 DATA124,120,0,60,243,239,158,240,136,15,240,136,15,240,136,15,112
110 DATA136,15,56,143,158,60,0,62,30,0,60,15,0,248,7,193,240,3,255,224
120 DATA1,255,192,0,127,0